library(tidyverse)
Registered S3 method overwritten by 'dplyr':
  method           from
  print.rowwise_df     
── Attaching packages ─────────────────────────────────────────────────────────────────── tidyverse 1.2.1 ──
✔ ggplot2 3.2.0     ✔ purrr   0.3.2
✔ tibble  2.1.3     ✔ dplyr   0.8.3
✔ tidyr   0.8.3     ✔ stringr 1.4.0
✔ readr   1.3.1     ✔ forcats 0.4.0
── Conflicts ────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
library(tidyNano)
library(themesoo)
data <- nanocombine() %>% 
  nanotidy(sep_var = c("Status","Exo_type","Dilution","Tech_rep"))
Detected the following files /Users/sean/Library/Mobile Documents/com~apple~CloudDocs/Experiments/PKH26/2019-04-22_Prok_Pexo_quantification//GD14_Pexo_1000_-ExperimentSummary.csvDetected the following files /Users/sean/Library/Mobile Documents/com~apple~CloudDocs/Experiments/PKH26/2019-04-22_Prok_Pexo_quantification//NP_plasmaExo_1000_-ExperimentSummary.csv
NTA version: 3.2
Sample name: 
Number of parameters detected: 1
Dilution factor detected: 1
Auto name = FALSE
Custom name: NULL
Dilution value: 1 (Didn't parse)
NTA version: 3.2
Sample name: 
Number of parameters detected: 1
Dilution factor detected: 1
Auto name = FALSE
Custom name: NULL
Dilution value: 1 (Didn't parse)
data
data %>%
  ggplot(aes(particle_size, True_count,
             color = Tech_rep)) +
  geom_line(size = 1) +
  facet_wrap(~Status) +
  theme_soo()

P_NP_plasma_plot <- data %>% 
  nanolyze(particle_size,Status,Exo_type,
           name = "Tech_rep",
           param_var = True_count) %>% 
  ggplot(aes(particle_size,Tech_rep_mean, color = Status)) +
  geom_line(size = 1) +
  theme_soo()

P_NP_plasma_plot %>% 
  plotly::ggplotly()

rr data %>% nanocount(Status, Exo_type,Tech_rep, param_var = True_count) %>% ungroup() %>% nanolyze(Status,Exo_type, param_var = Particle_count) %>% mutate( Sci_part_count = formatC(Param_mean, format = , digits = 2), half = formatC(Param_mean/2, format = , digits = 2)) r NA

fig02_GD14_pEV_Nanosight_plot <- data %>% 
  filter(Status == "GD14",
         particle_size < 751) %>% 
  mutate(Status = str_replace_all(Status, "GD14", "GD14.5 "),
         Samp_source = str_replace_all(Exo_type, "Pexo", "GD14.5 Placental Explant Cultured EVs")) %>%  
  nanolyze(particle_size, Status, Samp_source, param_var = True_count) %>% 
  ggplot(aes(particle_size, Param_mean, color = Status)) +
        geom_ribbon(aes(ymin = Param_mean - Param_se, 
                        ymax = Param_mean + Param_se), alpha=0.1) +
        geom_line(size = 1, alpha = 0.8) +
  scale_x_continuous(breaks = seq(0,700,100)) +
  scale_y_continuous(breaks = seq(0,1.2E10,3E9)) +
  facet_wrap(~Samp_source) +
  labs(x = "Particle size (nm)",
       y = "Concentration (particles/ml)\n") +
  scale_color_manual(values = c("#6B7CA3")) +
  themesoo::theme_soo(facet_fill = "#cccccc",
                      axis_title_size = 8,
                      axis_tick_size = 8) +
  guides(color = FALSE)


fig02_GD14_pEV_Nanosight_plot


# ggsave(plot = fig02_GD14_pEV_Nanosight_plot, "fig02_GD14_pEV_Nanosight_plot.png",
#        units = "in", width = 4, height = 2.5, dpi = 600)
LS0tCnRpdGxlOiAiNC8yMi8yMDE5IEV4b3NvbWUgQW5hbHlzaXMiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCgpgYGB7cn0KbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkodGlkeU5hbm8pCmxpYnJhcnkodGhlbWVzb28pCmBgYAoKYGBge3J9CmRhdGEgPC0gbmFub2NvbWJpbmUoKSAlPiUgCiAgbmFub3RpZHkoc2VwX3ZhciA9IGMoIlN0YXR1cyIsIkV4b190eXBlIiwiRGlsdXRpb24iLCJUZWNoX3JlcCIpKQoKZGF0YQpgYGAKCmBgYHtyfQpkYXRhICU+JQogIGdncGxvdChhZXMocGFydGljbGVfc2l6ZSwgVHJ1ZV9jb3VudCwKICAgICAgICAgICAgIGNvbG9yID0gVGVjaF9yZXApKSArCiAgZ2VvbV9saW5lKHNpemUgPSAxKSArCiAgZmFjZXRfd3JhcCh+U3RhdHVzKSArCiAgdGhlbWVfc29vKCkKYGBgCmBgYHtyfQpQX05QX3BsYXNtYV9wbG90IDwtIGRhdGEgJT4lIAogIG5hbm9seXplKHBhcnRpY2xlX3NpemUsU3RhdHVzLEV4b190eXBlLAogICAgICAgICAgIG5hbWUgPSAiVGVjaF9yZXAiLAogICAgICAgICAgIHBhcmFtX3ZhciA9IFRydWVfY291bnQpICU+JSAKICBnZ3Bsb3QoYWVzKHBhcnRpY2xlX3NpemUsVGVjaF9yZXBfbWVhbiwgY29sb3IgPSBTdGF0dXMpKSArCiAgZ2VvbV9saW5lKHNpemUgPSAxKSArCiAgdGhlbWVfc29vKCkKClBfTlBfcGxhc21hX3Bsb3QgJT4lIAogIHBsb3RseTo6Z2dwbG90bHkoKQpgYGAKCgoKYGBge3J9CmRhdGEgJT4lCiAgbmFub2NvdW50KFN0YXR1cywgRXhvX3R5cGUsVGVjaF9yZXAsIHBhcmFtX3ZhciA9IFRydWVfY291bnQpICU+JQogIHVuZ3JvdXAoKSAlPiUgCiAgbmFub2x5emUoU3RhdHVzLEV4b190eXBlLCBwYXJhbV92YXIgPSBQYXJ0aWNsZV9jb3VudCkgJT4lIAogIG11dGF0ZSggU2NpX3BhcnRfY291bnQgPSBmb3JtYXRDKFBhcmFtX21lYW4sIGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMiksCiAgICBoYWxmID0gZm9ybWF0QyhQYXJhbV9tZWFuLzIsIGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMikpCiAgCmBgYAoKCmBgYHtyfQpmaWcwMl9HRDE0X3BFVl9OYW5vc2lnaHRfcGxvdCA8LSBkYXRhICU+JSAKICBmaWx0ZXIoU3RhdHVzID09ICJHRDE0IiwKICAgICAgICAgcGFydGljbGVfc2l6ZSA8IDc1MSkgJT4lIAogIG11dGF0ZShTdGF0dXMgPSBzdHJfcmVwbGFjZV9hbGwoU3RhdHVzLCAiR0QxNCIsICJHRDE0LjUgIiksCiAgICAgICAgIFNhbXBfc291cmNlID0gc3RyX3JlcGxhY2VfYWxsKEV4b190eXBlLCAiUGV4byIsICJHRDE0LjUgUGxhY2VudGFsIEV4cGxhbnQgQ3VsdHVyZWQgRVZzIikpICU+JSAgCiAgbmFub2x5emUocGFydGljbGVfc2l6ZSwgU3RhdHVzLCBTYW1wX3NvdXJjZSwgcGFyYW1fdmFyID0gVHJ1ZV9jb3VudCkgJT4lIAogIGdncGxvdChhZXMocGFydGljbGVfc2l6ZSwgUGFyYW1fbWVhbiwgY29sb3IgPSBTdGF0dXMpKSArCiAgICAgICAgZ2VvbV9yaWJib24oYWVzKHltaW4gPSBQYXJhbV9tZWFuIC0gUGFyYW1fc2UsIAogICAgICAgICAgICAgICAgICAgICAgICB5bWF4ID0gUGFyYW1fbWVhbiArIFBhcmFtX3NlKSwgYWxwaGE9MC4xKSArCiAgICAgICAgZ2VvbV9saW5lKHNpemUgPSAxLCBhbHBoYSA9IDAuOCkgKwogIHNjYWxlX3hfY29udGludW91cyhicmVha3MgPSBzZXEoMCw3MDAsMTAwKSkgKwogIHNjYWxlX3lfY29udGludW91cyhicmVha3MgPSBzZXEoMCwxLjJFMTAsM0U5KSkgKwogIGZhY2V0X3dyYXAoflNhbXBfc291cmNlKSArCiAgbGFicyh4ID0gIlBhcnRpY2xlIHNpemUgKG5tKSIsCiAgICAgICB5ID0gIkNvbmNlbnRyYXRpb24gKHBhcnRpY2xlcy9tbClcbiIpICsKICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzID0gYygiIzZCN0NBMyIpKSArCiAgdGhlbWVzb286OnRoZW1lX3NvbyhmYWNldF9maWxsID0gIiNjY2NjY2MiLAogICAgICAgICAgICAgICAgICAgICAgYXhpc190aXRsZV9zaXplID0gOCwKICAgICAgICAgICAgICAgICAgICAgIGF4aXNfdGlja19zaXplID0gOCkgKwogIGd1aWRlcyhjb2xvciA9IEZBTFNFKQoKCmZpZzAyX0dEMTRfcEVWX05hbm9zaWdodF9wbG90CgojIGdnc2F2ZShwbG90ID0gZmlnMDJfR0QxNF9wRVZfTmFub3NpZ2h0X3Bsb3QsICJmaWcwMl9HRDE0X3BFVl9OYW5vc2lnaHRfcGxvdC5wbmciLAojICAgICAgICB1bml0cyA9ICJpbiIsIHdpZHRoID0gNCwgaGVpZ2h0ID0gMi41LCBkcGkgPSA2MDApCgoKYGBgCgoKYGBge3J9CmRmIDwtIGRhdGEuZnJhbWUoCiAgeCA9IDE6MywKICBwdXAgPSBjKCI0LDUsNiw3LDEiLCAiMyw1LDYsOCw5IiwgIjQsNSwzLDgsNSIpLAogIHdlaWdodCA9IGMoIjEwLjMsIDkuNSwgOC4zLCA5LjIsIDcuNSIsICI4LjMsIDYuOCwgLDguNCwgNy41LCA4LjQiLCAiNS41LCA2LjQsIDcuMywgOC4xLCA2LjkiKSwKICBzdHJpbmdzQXNGYWN0b3JzID0gRkFMU0UKKQoKZGYgJT4lIApzZXBhcmF0ZV9yb3dzKCBwdXAsIHdlaWdodCwgY29udmVydCA9IFRSVUUpCmBgYAoK